home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / ZONER .NAV (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  2KB  |  84 lines
  1. 2000 POKE43,PEEK(30983):POKE44,PEEK(30984):POKE45,PEEK(30985):POKE46,PEEK(30987)
  2. 2070 OL=1:ONFMGOTO2080,2185,2185
  3. 2080 R=5:C=29:GOSUB115:POKECH,C7:PRINT"  [218]ONE  ":POKECH,C1
  4. 2083 EX=0:N$(1)="FULL FORMAT":N$(2)="SHORT FORMAT":N$(3)="81 PARTITION"
  5. 2084 N$(4)="HD SUBDIRECTORY":N$(0)=TM$(0)
  6. 2085 CLOSE15:FS=4:FM=1:OPEN15,DV,15:GOTO300
  7. 2115 IFFM=2THEN2185
  8. 2120 FM=2:POKEV+21,0:ONFGOTO2125,2135,2145,2155
  9. 2125 GOSUB4000:IFEXTHENFM=1:GOTO2083
  10. 2130 PRINT#15,"N0:"+NN$+","+NI$:GOTO2185
  11. 2135 GOSUB4000:IFEXTHENFM=1:GOTO2083
  12. 2140 PRINT#15,"N0:"+NN$:GOTO2185
  13. 2145 GOSUB4000:IFEXTHENFM=1:GOTO2083
  14. 2150 GOSUB5000:GOTO2185
  15. 2155 GOSUB4000:IFEXTHENFM=1:GOTO2083
  16. 2160 GOSUB6000:GOTO2185
  17. 2185 CLOSE5:GOSUB1185:R=5:C=29:GOSUB115:POKECH,C2:PRINT"  [218]ONE  "
  18. 2195 EX=0:WF=0:D5=0:POKECH,C1
  19. 2197 GOTO465
  20. 3005 POKECH,C7
  21. 3007 PRINT"";:FORT=1TOLL+LEN(MS$):PRINT" ";:NEXT:PRINT""MS$;:POKE198,0
  22. 3010 OPEN9,0:A$="":B$="":POKE204,0
  23. 3015 GET#9,A$:IFA$=""THEN3015
  24. 3020 IFA$=CHR$(13)THENA$="":CLOSE9:PRINT" ";:POKE204,1:POKECH,C1:GOTO3056
  25. 3025 IFA$=""ORA$="[157]"ORA$="[145]"ORA$=""THENGOTO3015
  26. 3030 IFA$=""ORA$="[147]"THEN3015
  27. 3035 IFLEN(B$)=LLTHENPRINT" ";:A$=CHR$(13):GOTO3020
  28. 3040 IFB$=""ANDA$=CHR$(20)THEN3015
  29. 3045 IFA$=CHR$(20)THENPRINT" [157][157] [157]";:B$=LEFT$(B$,LEN(B$)-1):GOTO3015
  30. 3050 B$=B$+A$:PRINTA$;:GOTO3015
  31. 3055 RETURN
  32. 3056 PRINT"[146]";:FORT=1TO38:PRINT" ";:NEXT:RETURN
  33. 4000 MS$="USE INDICATED DRIVE?  (Y/N) ":OPEN5,DV,5,"#"
  34. 4005 POKECH,C7:PRINTMS$:POKECH,C1:POKE198,0
  35. 4010 GETA$:IFA$=""THEN4010
  36. 4015 IFA$<>"Y"THENEX=1:GOTO4050
  37. 4020 CLOSE5
  38. 4025 IFF=1ORF=2THENMS$="DISK NAME: "
  39. 4027 IFF=3THENMS$="PARTITION NAME: "
  40. 4029 IFF=4THENMS$="SUBDIRECTORY: "
  41. 4030 LL=18:GOSUB3005:NN$=LEFT$(B$,16):GOSUB3056
  42. 4035 IFF=2ORF=4THEN4050
  43. 4040 MS$="TWO CHARACTER ID: ":LL=4:GOSUB3005:NI$=LEFT$(B$,2)
  44. 4045 :
  45. 4050 CLOSE5:GOSUB3056:RETURN
  46. 4055 :
  47. 5000 EX=0:IFDT>=9THEN5010
  48. 5001 IFDT=8THEN5020
  49. 5005 POKECH,C7:PRINT"WRONG DISK TYPE... ":POKECH,C1:POKE198,0:WAIT198,1
  50. 5007 GOTO5200
  51. 5010 PRINT#15,"G-P":GET#15,A$:T=ASC(A$):IFT=4THEN5020
  52. 5015 POKECH,C7:PRINT"WRONG PARTITION TYPE... ":POKECH,C1:POKE198,0:WAIT198,1
  53. 5017 GOTO5200
  54. 5020 PRINT#15,"/":FORT=1TO700:NEXT
  55. 5025 FORT=1TOMS:
  56. 5027 IFVAL(LEFT$(PT$(T),2))<>8THENT=MS:GOTO5040
  57. 5030 IFVAL(LEFT$(PT$(T),2))=8THENPRINT#15,"/:"+MID$(PT$(T),3):FORK=1TO700:NEXT
  58. 5035 GOSUB7000:T1=ET:T2=ES:IFEXTHENT=MS
  59. 5040 NEXT
  60. 5050 MS$="NUMBER OF TRACKS: ":LL=4:GOSUB3005:T=VAL(B$):IFT<3THENT=3
  61. 5060 T=T*40
  62. 5070 IFB$="_"THEN5200
  63. 5075 IFDT=8ANDMS=1THENT1=1:T2=80:GOTO5090
  64. 5080 IFDT>=9ANDMS=2THENT1=1:T2=80:GOTO5090
  65. 5085 IFT2-T/40>T1THEN5090
  66. 5086 POKECH,C7:PRINT"INSUFFICIENT SPACE... ":POKECH,C1:POKE198,0:WAIT198,1
  67. 5087 GOSUB3056:GOTO5050
  68. 5090 HB=INT(T/256):LB=T-256*HB
  69. 5093 PRINT#15,"/0:"+NN$+","+CHR$(T2-(T/40))+CHR$(0)+CHR$(LB)+CHR$(HB)+",C"
  70. 5095 GOSUB7000:IFEN=67THENT2=T2-1:GOTO5085
  71. 5097 IFEXTHEN5200
  72. 5100 PRINT#15,"/0:"+NN$:GOSUB7000:IFEN<>2THENGOSUB215:IFEXTHEN5200
  73. 5110 PRINT#15,"N0:"NN$+","+NI$
  74. 5200 SF=1:GOSUB805:SF=0:GOSUB3056:POKECH,C1:D2=8:RETURN
  75. 6000 IFDT<9THEN6050
  76. 6005 PRINT#15,"G-P":GET#15,A$:T=ASC(A$):IFT=1THEN6020
  77. 6010 POKECH,C7:PRINT"WRONG PARTITION TYPE... ":POKECH,C1:POKE198,0:WAIT198,1:GOTO6050
  78. 6020 PRINT#15,"MD0:"+NN$
  79. 6050 GOSUB3056:D2=7:RETURN
  80. 7000 INPUT#15,EN$,EM$,ET$,ES$:EN=VAL(EN$):ET=VAL(ET$):ES=VAL(ES$)
  81. 7005 IFEN=67THENRETURN
  82. 7010 IFEN>19THENGOSUB215
  83. 7020 RETURN
  84.